home *** CD-ROM | disk | FTP | other *** search
- inherited frmCallDLLFunction: TfrmCallDLLFunction
- Left = 371
- Top = 154
- OldCreateOrder = True
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- inherited pnlTop: TPanel
- inherited lblCommandName: TLabel
- Caption = ''
- end
- end
- inherited pnlCenter: TPanel
- inherited pgcControlPage: TPageControl
- inherited tbsAM5Main: TTabSheet
- object Label1: TLabel
- Left = 10
- Top = 16
- Width = 203
- Height = 13
- AutoSize = False
- Caption = '&DLL filename:'
- FocusControl = edtDLLName
- end
- object Label2: TLabel
- Left = 10
- Top = 65
- Width = 199
- Height = 13
- AutoSize = False
- Caption = '&Function name (case sensitive):'
- FocusControl = edtFuncName
- end
- object Label3: TLabel
- Left = 242
- Top = 16
- Width = 197
- Height = 13
- AutoSize = False
- Caption = '&Arguments:'
- FocusControl = lvArgs
- end
- object Label5: TLabel
- Left = 10
- Top = 114
- Width = 199
- Height = 13
- AutoSize = False
- Caption = '&Return value type:'
- FocusControl = cbxReturnType
- end
- object Label6: TLabel
- Left = 10
- Top = 163
- Width = 203
- Height = 13
- AutoSize = False
- Caption = 'Populate &variable with result:'
- FocusControl = edtVarName
- end
- object Label4: TLabel
- Left = 242
- Top = 163
- Width = 201
- Height = 13
- AutoSize = False
- Caption = 'Argument &value:'
- Enabled = False
- FocusControl = edtArgValue
- end
- object edtDLLName: TEdit
- Left = 10
- Top = 32
- Width = 224
- Height = 21
- TabOrder = 0
- end
- object edtFuncName: TEdit
- Left = 10
- Top = 81
- Width = 224
- Height = 21
- TabOrder = 1
- end
- object lvArgs: TListView
- Left = 242
- Top = 32
- Width = 217
- Height = 91
- Columns = <
- item
- Caption = 'Argument type'
- Width = 90
- end
- item
- AutoSize = True
- Caption = 'Value'
- end>
- ColumnClick = False
- ReadOnly = True
- TabOrder = 4
- ViewStyle = vsReport
- OnSelectItem = lvArgsSelectItem
- end
- object cbxReturnType: TAM5VarListComboBox
- Left = 10
- Top = 130
- Width = 224
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 2
- end
- object edtVarName: TComboBox
- Left = 10
- Top = 179
- Width = 198
- Height = 21
- ItemHeight = 0
- TabOrder = 3
- end
- object edtArgValue: TEdit
- Left = 242
- Top = 179
- Width = 217
- Height = 21
- Color = clBtnFace
- Enabled = False
- TabOrder = 5
- OnChange = edtArgValueChange
- end
- object comAddArg: TButton
- Left = 242
- Top = 131
- Width = 104
- Height = 20
- Caption = 'Add arg&ument...'
- TabOrder = 6
- OnClick = comAddArgClick
- end
- object comDeleteArg: TButton
- Left = 354
- Top = 131
- Width = 105
- Height = 20
- Caption = 'De&lete argument'
- TabOrder = 7
- OnClick = comDeleteArgClick
- end
- end
- end
- end
- inherited taclKeyboardTrap: TActionList
- Left = 200
- end
- inherited dxSIBarManager: TdxBarManager
- Categories.ItemsVisibles = (
- 2)
- Categories.Visibles = (
- True)
- PopupMenuLinks = <
- item
- Control = lsvAM5Errors
- PopupMenu = dxCheckPopup
- end>
- DockControlHeights = (
- 0
- 0
- 0
- 0)
- end
- inherited dxCheckPopup: TdxBarPopupMenu
- ItemLinks = <
- item
- Item = itmCheckAllErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end
- item
- Item = itmCheckNoErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end>
- end
- inherited IvTranslator1: TIvTranslator
- Left = 232
- Top = 348
- end
- end
-